Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_57 / stosword.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1985-11-19 | 56KB | 585 lines

1 REM *************************** 10 DIM 100 VARNAME 1000 REM low resolution mode 1001 FADE 1002 IF 1003 VARNAME 101 IF 1010 REM medium resolution mode 1011 FADE 1012 IF 1013 VARNAME 1020 REM high resolution mode 1022 IF 1025 VARNAME 105 VARNAME 11 GOSUB 1100 VARNAME 1101 IF 1102 RETURN 1110 VARNAME 1115 VARNAME 1116 IF 1117 VARNAME 1118 INC 1120 VARNAME 1121 VARNAME 1122 LOCATE 1130 IF 1131 IF 1132 LOCATE 1150 MENU 1151 RESERVE 1152 SET ZONE 1153 SET ZONE 1154 VARNAME 1155 VARNAME 1156 LOCATE 1157 INK 1158 INK 1160 WHILE 1161 VARNAME 1162 IF 1163 IF 1164 IF 1167 WEND 1169 SCREEN COPY 1199 REM gosub 1200 with AL$ containing data 1-2 line of text (| as seperator) ended by ## then data for 2 buttons (^ as seperator) 12 VARNAME 1200 MENU 1210 PAPER 1211 CURS 1215 RESET ZONE 1216 IF 1220 LOCATE 1225 SET ZONE 1230 VARNAME 1231 IF 1235 VARNAME 1250 MENU 1255 PAPER 1259 CURS 1300 INVERSE 1301 CURS 1302 VARNAME 1310 INVERSE 1311 CURS 1312 LOCATE 1320 SHADE 1321 IF 1322 VARNAME 1325 VARNAME 1328 IF 1329 SHADE 1350 REM redefine menu with control characters 1351 RESTORE 1352 READ 1353 MENU$ 1354 READ 1355 IF 1356 MENU$ 1357 INC 1358 MENU$ 1359 VARNAME 1360 REM size memory & set MXP to optimum or to Xk if value at start(7)+$1FE > 0 1361 IF 1362 VARNAME 1363 IF 1365 RETURN 1370 PRINT 1371 IF 1372 VARNAME 1375 RESERVE 1377 VARNAME 1378 INC 1379 VARNAME 1380 IF 1381 VARNAME 1382 VARNAME 1383 VARNAME 1400 MENU 1401 VARNAME 1402 VARNAME 1404 VARNAME 1405 VARNAME 1406 VARNAME 1407 INC 1409 LOCATE 1411 FOR 1412 VARNAME 1413 VARNAME 1414 IF 1415 VARNAME 1416 IF 1430 WEND 1449 MENU 1450 IF 1451 VARNAME 1452 IF 1453 IF 1499 RETURN 15 KEY 1500 REM enter text in I$, from origional I$ to same length , at Tx,Ty K$ contains first keystroke 1501 LOCATE 1502 WHILE 1503 IF 1504 IF 1505 IF 1506 IF 1520 VARNAME 1530 VARNAME 1531 IF 1532 IF 1533 IF 1539 RETURN 16 VARNAME 1600 REM show controls 1601 VARNAME 1602 LOCATE 1603 LOCATE 1604 LOCATE 1605 LOCATE 1606 LOCATE 1608 LOCATE 1609 LOCATE 1610 LOCATE 1611 WHILE 1612 MENU 1620 FOR 1621 VARNAME 1622 VARNAME 1623 IF 1629 GOSUB 17 IF 18 SCROLL 189 RETURN 190 VARNAME 191 IF 199 RETURN 2 REM * * 20 VARNAME 200 VARNAME 2000 REM print routines 2005 REM print line L$ 201 IF 2010 VARNAME 2011 VARNAME 2012 INC 2013 IF 2015 VARNAME 2016 VARNAME 2017 IF 2019 IF 202 GOSUB 2020 IF 2021 VARNAME 2022 VARNAME 2023 VARNAME 2024 IF 2025 IF 2026 IF 2027 LPRINT 2029 RETURN 2030 VARNAME 2031 VARNAME 2032 VARNAME 2033 VARNAME 2034 VARNAME 2035 VARNAME 2037 RETURN 2040 VARNAME 2041 VARNAME 2042 VARNAME 2043 VARNAME 2044 VARNAME 2045 VARNAME 2047 RETURN 2050 VARNAME 2051 VARNAME 2052 VARNAME 2053 VARNAME 2054 VARNAME 2055 VARNAME 2057 RETURN 2060 VARNAME 2061 VARNAME 2062 VARNAME 2063 VARNAME 2064 VARNAME 2065 VARNAME 2067 RETURN 2100 ON ERROR 2101 VARNAME 2102 VARNAME 2103 VARNAME 2104 VARNAME 2105 LPRINT 2106 INC 2110 MENU 2120 IF 2121 VARNAME 2130 REM print page 2131 ON ERROR 2132 VARNAME 2134 VARNAME 2135 LPRINT 2136 LPRINT 279 RETURN 280 VARNAME 281 IF 282 IF 289 RETURN 299 RETURN 3 REM * STOS Word . * 30 GOSUB 300 MENU 301 IF 302 IF 303 IF 304 IF 305 IF 306 IF 307 IF 308 IF 309 IF 310 IF 311 IF 312 IF 313 IF 314 IF 315 IF 316 IF 317 IF 318 IF 319 IF 320 IF 321 IF 322 IF 323 IF 324 IF 325 IF 326 IF 327 IF 328 IF 329 IF 330 IF 333 IF 334 LOCATE 335 IF 336 IF 337 IF 338 IF 339 IF 340 IF 341 IF 342 IF 343 IF 344 IF 345 IF 346 IF 347 IF 349 RETURN 350 DEC 351 IF 352 LOCATE 360 DEC 361 IF 362 RETURN 365 DEC 370 INC 371 RETURN 380 VARNAME 385 VARNAME 386 INC 387 VARNAME 390 VARNAME 391 VARNAME 392 REPEAT 393 VARNAME 395 VARNAME 397 IF 399 RETURN 4 REM * By Aaron Fothergill * 400 IF 401 VARNAME 402 IF 403 IF 404 IF 405 IF 406 VARNAME 410 VARNAME 415 VARNAME 416 IF 430 VARNAME 432 RETURN 45 VARNAME 450 REM insert line at IL 451 VARNAME 452 VARNAME 46 VARNAME 460 VARNAME 461 DEC 462 IF 463 RETURN 464 VARNAME 465 RETURN 466 VARNAME 467 VARNAME 468 IF 469 RETURN 47 VARNAME 470 IF 471 IF 472 VARNAME 475 VARNAME 48 VARNAME 480 VARNAME 481 SET CURS 485 VARNAME 49 VARNAME 490 IF 491 RETURN 5 REM * Shadow Software 1989 * 50 MENU 500 MENU 5000 CLW 5010 VARNAME 5011 VARNAME 504 LOCATE 505 VARNAME 506 WHILE 507 RETURN 520 IF 525 RETURN 530 REM layout 531 VARNAME 532 VARNAME 535 IF 55 ON ERROR 550 RETURN 56 UNDER 560 REM printer settings 561 VARNAME 562 VARNAME 563 VARNAME 564 IF 567 VARNAME 568 IF 569 RETURN 57 IF 570 REM convert string of hex numbers into character string 571 VARNAME 572 VARNAME 573 IF 575 VARNAME 58 GOSUB 580 VARNAME 581 VARNAME 582 VARNAME 583 VARNAME 584 VARNAME 585 VARNAME 589 RETURN 59 WHILE 590 VARNAME 591 VARNAME 593 REM save printer/layout settings 594 VARNAME 595 OPEN OUT 596 PRINT 597 PRINT 598 FOR 599 CLOSE 6 REM * For STOS User Club * 60 VARNAME 600 ON ERROR 6000 DATA 6001 DATA 6002 DATA 6003 DATA 6004 DATA 6005 DATA 601 MENU 602 VARNAME 603 GOSUB 605 OPEN IN 606 WHILE 607 VARNAME 608 VARNAME 609 VARNAME 61 VARNAME 610 VARNAME 611 OPEN OUT 612 VARNAME 613 VARNAME 615 VARNAME 616 OPEN OUT 617 VARNAME 618 VARNAME 619 RETURN 62 IF 620 VARNAME 621 OPEN IN 622 WHILE 623 VARNAME 624 OPEN IN 625 WHILE 629 RETURN 640 REM load icons 641 VARNAME 642 LOAD 649 RETURN 650 REM Print File 652 GOSUB 655 REM Print Page 656 GOSUB 660 REM quit 661 VARNAME 662 RETURN 670 REM load printer/layout settings 671 VARNAME 672 OPEN IN 673 LINE INPUT 674 LINE INPUT 675 FOR 676 CLOSE 677 VARNAME 679 RETURN 680 REM size memory 681 VARNAME 682 IF 683 VARNAME 684 RETURN 690 VARNAME 691 VARNAME 692 IF 693 KILL 695 VARNAME 696 GOSUB 697 VARNAME 698 INC 699 INC 7 REM * * 70 IF 700 MENU 701 VARNAME 702 VARNAME 703 VARNAME 704 IF 705 VARNAME 706 VARNAME 707 VARNAME 710 VARNAME 720 VARNAME 721 VARNAME 722 IF 723 IF 724 VARNAME 725 GOSUB 726 IF 727 IF 728 RETURN 740 REM next page 741 VARNAME 742 INC 760 VARNAME 761 VARNAME 770 REM previous page 771 VARNAME 790 MENU 8 REM *************************** 800 MENU 801 REM mark start block 802 VARNAME 805 REM mark end block 806 VARNAME 810 REM remove block 811 IF 812 VARNAME 813 VARNAME 814 IF 815 VARNAME 829 RETURN 830 VARNAME 831 IF 832 IF 833 IF 834 VARNAME 835 VARNAME 836 VARNAME 837 IF 838 IF 839 RETURN 849 RETURN 850 REM Move Block 851 IF 852 IF 853 IF 854 VARNAME 855 VARNAME 856 IF 857 VARNAME 869 RETURN 870 REM write block to disk 871 IF 872 IF 873 VARNAME 874 OPEN OUT 879 ON ERROR 880 VARNAME 881 VARNAME 882 IF 883 VARNAME 885 GOSUB 886 VARNAME 890 GOSUB 891 VARNAME 895 GOSUB 896 VARNAME 9 VARNAME 900 VARNAME 901 REM place icon 902 VARNAME 905 CURS 906 LOCATE 907 INVERSE 908 VARNAME 910 VARNAME 911 VARNAME 912 IF 913 IF 915 WEND 916 VARNAME 920 REM word wrap 929 RETURN 930 VARNAME 931 VARNAME 932 VARNAME 933 IF 934 IF 935 IF 936 GOSUB 937 IF 938 INC 939 VARNAME 940 REM left justify (to left margin) 941 VARNAME 942 VARNAME 950 REM place icon (actually place it) 951 MENU 960 REM centre justify (from left margin) 961 VARNAME 962 VARNAME 963 VARNAME 97 IF 98 IF 980 REM right justify (to right margin) 981 VARNAME 982 VARNAME 99 GOTO 990 VARNAME 991 INC 992 RETURN 999 END